home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1995 May / cd Ware (Juegos) Epimundo.iso / DOS / PRGMMING / M2PROTOS.ZIP / UTIL.DEF < prev   
Encoding:
Modula Definition  |  1991-02-09  |  1.2 KB  |  50 lines
  1. (*%F _fdata *)
  2. (*# call(seg_name => null) *)
  3. (*%E *)
  4. (*# module(implementation=>off) *)
  5. (*# data(seg_name => null) *)
  6. (*# call(o_a_copy => off) *)
  7. (*# check(stack=>off,
  8.           index=>off,
  9.           range=>off,
  10.           overflow=>off,
  11.           nil_ptr=>off) *)
  12. DEFINITION MODULE UTIL;
  13.  
  14. (* Source code for JPI TopSpeed Modula-2 by
  15.  
  16.     Carl Neiburger
  17.     169 N. 25th St.
  18.     San Jose, Calif. 95116
  19.  
  20.     CompuServe No. 72336,2257
  21.  
  22. *)
  23.  
  24.         (* NOTE: THIS IS AN ABRIDGED VERSION OF UTIL TO DEFINE TYPES *)
  25.                      (* USED IN FILE TRANSFER PROTOCOLS *)
  26.  
  27. FROM Str IMPORT CHARSET;
  28.  
  29. TYPE
  30.           NUMSET = SET OF SHORTCARD;
  31.           SBITSET = SET OF [0..7];
  32.  
  33.           str2  = ARRAY [0..1] OF CHAR;
  34.           str3  = ARRAY [0..2] OF CHAR;
  35.           str5  = ARRAY [0..4] OF CHAR;
  36.           str6  = ARRAY [0..5] OF CHAR;
  37.           str9  = ARRAY [0..8] OF CHAR;
  38.           str10 = ARRAY [0..9] OF CHAR;
  39.           str11 = ARRAY [0..10] OF CHAR;
  40.           str12 = ARRAY [0..11] OF CHAR;
  41.           str32 = ARRAY [0..31] OF CHAR;
  42.           str80 = ARRAY [0..79] OF CHAR;
  43.  
  44. CONST
  45.  
  46.    FiChars = CHARSET {'!', '#'..'%', '(', ')', '-', '.',
  47.             '0'..'9', '@'..'Z', '^', '_', '{', '}', '~'};
  48.  
  49. END UTIL.
  50.